﻿Imports Model.Geometry
Namespace Result
    Public Class DrawCADWithCircle
        ''中心
        Public cenpt As Point3d
        Public radius As Double
        Public stanele As Double
        Public mil As String
        Public designcenpt As Point3d
        Public surveycenpt As Point3d
        Public designmaxele As Double
        Public designminele As Double
        Public surveymaxele As Double
        Public surveyminele As Double
        Public drawpoint As List(Of Point3d)

        Public Sub New()
            cenpt = New Point3d
            designcenpt = New Point3d
            surveycenpt = New Point3d
            drawpoint = New List(Of Point3d)
            drawpoint.Clear()
        End Sub
        ''' <summary>
        ''' 初始化类，将需要展绘的点平移
        ''' </summary>
        ''' <param name="n"></param>
        ''' <returns></returns>
        ''' <remarks></remarks>
        Public Function initMySelf(ByVal n As Integer)
            cenpt.p_x += 30 * n
            For i = 0 To drawpoint.Count - 1
                drawpoint(i).p_x += 30 * n
            Next
            Return Nothing
        End Function
    End Class
End Namespace
